home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World Interactive 1995 August / Personal Computer World (PCW Interactive) (August 1995).iso / demos / bio / bioforge / script / conreact.scp < prev    next >
Text File  |  1995-02-21  |  6KB  |  477 lines

  1.  
  2. { AIR1_LOAD
  3. I @Ç¢ PLAYER THEN O $ÇÉ 
  4.  
  5. }
  6. { AIR2_LOAD
  7.  
  8.  @Ç║ `âô $üê "COMPUTER: Warning! Temperature of plasma field~still increasing./FAlerte : Température du champ~de plasma toujours en hausse./GWarnung: Plasmafeldtemperatur steigt weiter an." 
  9. @Ç║ `âö $üê "Time until reactor critical:~indeterminate./FDélai avant que le réacteur atteigne~le point critique : indéterminé./GZeit bis Reaktor kritisch wird:~Unbestimmt." 
  10.  
  11. ^å₧ = 1 
  12.  
  13. }
  14.  
  15. { RTR_LOAD
  16. I ^î⌐ THEN
  17. {
  18. @Ç¢ REACTBOT
  19. ┬ 
  20. }
  21. {
  22. @Ç¢ DROGG1
  23. ┬ 
  24. }
  25. }
  26.  
  27.  
  28. { AL1_AUTO_CR_BOT
  29.  
  30. I ^Ç▒ != 1 OR ^çï = 1 THEN
  31. é 
  32. I ^êÇ == $üé THEN
  33. {
  34. W 10
  35.  
  36.  @Ç║ `âà $üê "COMPUTER: Danger! Reactor approaching~critical state./FATTENTION ! Réacteur se~rapproche du point critique./GWarnung: Reaktor wird kritisch!" 
  37. }
  38. ^êô = 0
  39. ^êö = 0
  40.  @Çì AIRLOCK_DOOR_OPEN
  41. @Çì CONDR2AUTOCLOSE
  42. }
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54. { RAM_BOT_CR_BOT
  55.  
  56.  
  57.  
  58. O $Ç░ 
  59. O $ÇÉ 
  60.  
  61. ^êü = 1
  62.  
  63. C RTR2
  64.  
  65. @Ç¢ CR_BOT
  66. A OFF
  67. u CURFIG OFF
  68.  
  69. I @Çä IN -90 90 THEN
  70. {
  71. £ 0
  72. I ^ïó = 1 THEN
  73. M WALK2 CONTINUE
  74. M WALK CONTINUE
  75. }
  76. {
  77. £ 180
  78. I ^ïó = 1 THEN
  79. M WALK_BACK2 CONTINUE
  80. M WALK_BACK CONTINUE
  81. }
  82. @Çå `äì 
  83. @Çå `Ç▒ 
  84. @Ç¢ REACTBOT
  85. A OFF
  86. u CURFIG OFF
  87. M BACKWARD CONTINUE
  88. W 4 SECONDS
  89. @Ç¢ CR_BOT
  90. ^êé = 1
  91. ^î⌐ = $üé 
  92. ^êü = 0
  93. C UNLOCK
  94.  
  95. @Ç¥ READY_DROGG1
  96. }
  97. { AL1_AUTO
  98.  
  99. I ^êö == 1 THEN
  100. {
  101. ^êö = 0
  102. @Çì CONDR2AUTOCLOSE
  103. }
  104.  
  105. }
  106. { CONBOTCHECK
  107.  
  108. I @Ç¢ CONBOT THEN
  109. {
  110. I @Ç¡ CURFIG AIR THEN
  111. é $üâ 
  112. }
  113. ! "Can't find Conbot!"
  114. é $üé 
  115. }
  116.  
  117. { CNT_BTN2_USE
  118. I @Ç¥ CONBOTCHECK == $üâ THEN ^Ç╜ = $üé 
  119. I ^Ç▒ != 1 OR ^çï THEN ^Ç╜ = $üé 
  120. I ^ä░ == $âé OR ^êö == 1 THEN ^Ç╜ = $üé 
  121.  
  122. @Ç¢ PLAYER
  123. I @Çä NOTIN -45 45 THEN é 
  124. I ^Ç╜ = $üé THEN
  125. {
  126. M PUSH_BUTTON CONTINUE
  127. W 10
  128. @Çå `ÇÄ 
  129. é 
  130. }
  131. M PUSH_BUTTON CONTINUE
  132. ^Ç╜ = $üé 
  133. W 10
  134. @Çå `Ç» 100 -2048 
  135. W 10
  136. @Çå `àö 
  137. I ^êÇ == $üé THEN
  138. {
  139. W 10
  140.  
  141.  @Ç║ `âà $üê "COMPUTER: Danger! Reactor approaching~critical state./FATTENTION ! Réacteur se~rapproche du point critique./GWarnung: Reaktor wird kritisch!" 
  142. }
  143.  
  144. ^êô = 0
  145. ^êö = 0
  146.  @Çì AIRLOCK_DOOR_OPEN
  147. @Çì CONDR2AUTOCLOSE
  148.  
  149. }
  150. { DR2_OPEN_CR_BOT
  151. @Ç¥ DR2_OPEN
  152. }
  153. { DR2_OPEN
  154. I ^êö == 0 THEN
  155. {
  156. ^êô = 1
  157. ^êö = 1
  158.  @Çì AIRLOCK_DOOR_CLOSE
  159. :LOOP
  160. I ^êô = 0 THEN
  161. {
  162. W 3 SECONDS
  163.  @Çì AIRLOCK_DOOR2_OPEN
  164. I @Ç⌐ LEX AND @ÇÄ AIR THEN
  165. {
  166. @Ç¢ PLAYER
  167. A OFF
  168. u CURFIG OFF
  169. M CHOKE FREEZE
  170. O $Çà 
  171. @Ç¥ KILLLEX
  172. é 
  173. }
  174. é 
  175. }
  176. â 
  177. J #Çè 
  178. }
  179. }
  180. { DR8_OPEN_CR_BOT
  181. @Ç¥ DR8_OPEN
  182. }
  183. { DR8_OPEN
  184. I ^êö == 0 THEN
  185. {
  186. ^êô = 1
  187. ^êö = 1
  188.  @Çì AIRLOCK_DOOR2_CLOSE
  189. :LOOP
  190. I ^êô = 0 THEN
  191. {
  192. W 1 SECOND
  193.  @Çì AIRLOCK_DOOR_OPEN
  194. é 
  195. â 
  196. }
  197. â 
  198. J #Çì 
  199. }
  200. }
  201. { IN_RTR
  202.  
  203.  
  204. ^êô = 0
  205. ^êö = 0
  206.  @Çì CONDR8AUTOCLOSE
  207. I ^ä░ == $ââ THEN C UNLOCK
  208. }
  209. { IN_RTR_CR_BOT
  210. @Ç¥ IN_RTR
  211. }
  212. [ DECON
  213. P ~ÇÇ 
  214. I ^êô == $üé THEN é 
  215. 00:00 ~ÇÇ = @Çç `àô 150 
  216. ^ê╜ = 1
  217. 00:02 ^ê╜ = 2
  218. 00:04 ^ê╜ = 3
  219. 00:06 ^ê╜ = 4
  220. 00:08 ^ê╜ = 5
  221. 00:10 ^ê╜ = 6
  222. 00:12 ^ê╜ = 7
  223. 00:14 ^ê╜ = 8
  224. 00:16 ^ê╜ = 9
  225. 00:18 ^ê╜ = 10
  226. 00:20 ^ê╜ = 11
  227. 00:22 ^ê╜ = 12
  228. 00:24 ^ê╜ = 13
  229. 00:26 ^ê╜ = 14
  230. 00:28 ^ê╜ = 15
  231. 01:00 ^ê╜ = 16
  232. 01:02 ^ê╜ = 17
  233. 01:04 ^ê╜ = 18
  234. 01:06 ^ê╜ = 19
  235. 01:08 ^ê╜ = 20
  236. 01:10 ^ê╜ = 21
  237. 01:12 ^ê╜ = 22
  238. 01:14 ^ê╜ = 23
  239. 01:16 ^ê╜ = 24
  240. 01:18 ^ê╜ = 25
  241. 01:20 ^ê╜ = 26
  242. 01:22 ^ê╜ = 27
  243. 01:24 ^ê╜ = 28
  244. 01:26 ^ê╜ = 29
  245. 01:28 ^ê╜ = 28
  246. 02:00 ^ê╜ = 27
  247. 02:02 ^ê╜ = 26
  248. 02:04 ^ê╜ = 25
  249. 02:06 ^ê╜ = 24
  250. 02:08 ^ê╜ = 23
  251. 02:10 ^ê╜ = 22
  252. 02:12 ^ê╜ = 21
  253. 02:14 ^ê╜ = 20
  254. 02:16 ^ê╜ = 19
  255. 02:18 ^ê╜ = 18
  256. 02:20 ^ê╜ = 17
  257. 02:22 ^ê╜ = 16
  258. 02:24 ^ê╜ = 15
  259. 02:26 ^ê╜ = 14
  260. 02:28 ^ê╜ = 13
  261. 03:00 ^ê╜ = 12
  262. 03:02 ^ê╜ = 11
  263. 03:04 ^ê╜ = 10
  264. 03:06 ^ê╜ = 9
  265. 03:08 ^ê╜ = 8
  266. 03:10 ^ê╜ = 7
  267. 03:12 ^ê╜ = 6
  268. 03:14 ^ê╜ = 5
  269. 03:16 ^ê╜ = 4
  270. 03:18 ^ê╜ = 3
  271. 03:20 ^ê╜ = 2
  272. 03:22 ^ê╜ = 1
  273. 03:24 ^ê╜ = 0
  274. ^êô = 0
  275.  ~ÇÇ 
  276. ]
  277. { DECON_CR_BOT
  278. @Ç¥ DECON
  279. }
  280. { CONDR2AUTOCLOSE
  281. :TOP
  282. â 
  283. I ^Ç▒ != 0 THEN J #Çô
  284. I ^ä» == $ââ THEN é 
  285. I @Ç¡ CURFIG AIR OR @Ǽ CURFIG DR11 < 370 THEN
  286. J #Çô
  287. I @Ç¡ CURFIG HLC THEN
  288. @Çì AIRLOCK_DOOR_CLOSE
  289. }
  290. { CONDR8AUTOCLOSE
  291. :TOP
  292. â 
  293. I ^éî != 0 THEN J #Çò
  294. I ^ä░ == $ââ THEN é 
  295. I @Ç¡ CURFIG AIR OR @Ǽ CURFIG DR12 < 320 THEN
  296. J #Çò
  297. I @Ç¡ CURFIG RTR THEN
  298. {
  299. C RTR2
  300. @Ç¥ AIRLOCK_DOOR2_CLOSE
  301. C UNLOCK
  302. }
  303. }
  304.  
  305. { LOCK_BTN_USE
  306.  
  307. I ^éî != 1 OR ^çî == 1 THEN
  308. é 
  309. @Ç¢ PLAYER
  310. I @Çä NOTIN -115 -45 THEN é 
  311. I @Ç⌐ CR_BOT != 1 THEN M PUSH_BUTTON CONTINUE
  312. W 10
  313. @Çå `Ç» 100 -2048 
  314. W 15
  315. @Çå `àö 
  316. ^êô = 0
  317. ^êö = 0
  318. W 1 SECOND
  319. C RTR2
  320.  @Çì AIRLOCK_DOOR2_OPEN
  321. @Çì CONDR8AUTOCLOSE
  322. :LOOP
  323. I @Ç¡ CURFIG DR12 == $üâ OR ^ä░ == $ââ THEN
  324. {
  325. C UNLOCK
  326. é 
  327. }
  328. â 
  329. J #Çù 
  330. }
  331. { DOOMED
  332.  
  333. @Ç¢ LEX
  334. M FALLING 25 CONTINUE
  335. }
  336.  
  337. [ AIRLOCK_DOOR_OPEN
  338. 00:00 I ^éî == 0 THEN
  339. {
  340. ^éî = 1
  341. ^ä░ = $ââ 
  342. }
  343. ^çï = 1
  344. I @ÇÄ CTR != 1 THEN @Çå `Ç« 200 
  345. ^Ç▒ = 1
  346. 00:02 ^Ç▒ = 2
  347. 00:05 ^Ç▒ = 3
  348. 00:08 ^Ç▒ = 4
  349. 00:10 ^Ç▒ = 5
  350. 00:13 ^Ç▒ = 6
  351. 00:16 ^Ç▒ = 7
  352. 00:19 ^Ç▒ = 8
  353. 00:21 ^Ç▒ = 9
  354. 00:24 ^Ç▒ = 10
  355. 00:26 ^Ç▒ = 11
  356. 00:28 ^Ç▒ = 12
  357. 01:00 ^Ç▒ = 13
  358. 01:02 ^Ç▒ = 14
  359. 01:04 ^Ç▒ = 15
  360. 01:06 ^Ç▒ = 16
  361. 01:08 ^Ç▒ = 17
  362. 01:10 ^Ç▒ = 18
  363. 01:12 ^Ç▒ = 19
  364. 01:13 ^Ç▒ = 0
  365. ^çï = 0
  366. ^ä» = $âé 
  367. ]
  368. [ AIRLOCK_DOOR2_OPEN
  369. 00:00 I ^Ç▒ == 0 THEN
  370. {
  371. ^Ç▒ = 1
  372. ^ä» = $ââ 
  373. }
  374. ^çî = 1
  375. I @ÇÄ CTR != 1 THEN @Çå `Ç« 200 
  376. ^éî = 1
  377. 00:02 ^éî = 2
  378. 00:05 ^éî = 3
  379. 00:08 ^éî = 4
  380. 00:10 ^éî = 5
  381. 00:13 ^éî = 6
  382. 00:16 ^éî = 7
  383. 00:19 ^éî = 8
  384. 00:21 ^éî = 9
  385. 00:24 ^éî = 10
  386. 00:26 ^éî = 11
  387. 00:28 ^éî = 12
  388. 01:00 ^éî = 13
  389. 01:02 ^éî = 14
  390. 01:04 ^éî = 15
  391. 01:06 ^éî = 16
  392. 01:08 ^éî = 17
  393. 01:10 ^éî = 18
  394. 01:12 ^éî = 19
  395. 01:13 ^éî = 0
  396. ^çî = 0
  397. ^ä░ = $âé 
  398. ]
  399. [ AIRLOCK_DOOR_CLOSE
  400. 00:00 ^çï = 1
  401. I @ÇÄ CTR != 1 THEN @Çå `Ç« 150 
  402. ^Ç▒ = 0
  403. 00:02 ^Ç▒ = 19
  404. 00:05 ^Ç▒ = 18
  405. 00:08 ^Ç▒ = 17
  406. 00:10 ^Ç▒ = 16
  407. 00:13 ^Ç▒ = 15
  408. 00:16 ^Ç▒ = 14
  409. 00:19 ^Ç▒ = 13
  410. 00:21 ^Ç▒ = 12
  411. 00:24 ^Ç▒ = 11
  412. 00:26 ^Ç▒ = 10
  413. 00:28 ^Ç▒ = 9
  414. 01:00 ^Ç▒ = 8
  415. 01:02 ^Ç▒ = 7
  416. 01:04 ^Ç▒ = 6
  417. ^ä» = $ââ 
  418. 01:06 ^Ç▒ = 5
  419. 01:08 ^Ç▒ = 4
  420. 01:10 ^Ç▒ = 3
  421. 01:12 ^Ç▒ = 2
  422. 01:13 ^Ç▒ = 1
  423. ^çï = 0
  424. ^Ç╜ = $üâ 
  425.  
  426. ]
  427. [ AIRLOCK_DOOR2_CLOSE
  428. 00:00 ^çî = 1
  429. I @ÇÄ CTR != 1 THEN @Çå `Ç« 100 
  430. ^éî = 0
  431. 00:02 ^éî = 19
  432. 00:05 ^éî = 18
  433. 00:08 ^éî = 17
  434. 00:10 ^éî = 16
  435. 00:13 ^éî = 15
  436. 00:16 ^éî = 14
  437. 00:19 ^éî = 13
  438. 00:21 ^éî = 12
  439. 00:24 ^éî = 11
  440. 00:26 ^éî = 10
  441. 00:28 ^éî = 9
  442. 01:00 ^éî = 8
  443. 01:02 ^éî = 7
  444. 01:04 ^éî = 6
  445. ^ä░ = $ââ 
  446. 01:06 ^éî = 5
  447. 01:08 ^éî = 4
  448. 01:10 ^éî = 3
  449. 01:12 ^éî = 2
  450. 01:13 ^éî = 1
  451. ^çî = 0
  452.  
  453. ]
  454.  
  455.  
  456.  
  457. { CORRECT1
  458. @Ç¢ PLAYER
  459. I @Çä IN -30 30 THEN £ 0
  460. }
  461. { CORRECT2
  462. @Ç¢ PLAYER
  463. I @Çä < -150 OR @Çä > 150 THEN £ 180
  464. }
  465.  
  466.  
  467. //$ 26 - version number
  468.